home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / interfaces3_5.lha / Interfaces / GamePort.mod < prev    next >
Text File  |  1994-03-05  |  1KB  |  56 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: GamePort.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE GamePort;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.  
  16. (******  GamePort commands ******)
  17.   readEvent   * = e.nonstd+0;
  18.   askCType    * = e.nonstd+1;
  19.   setCType    * = e.nonstd+2;
  20.   askTrigger  * = e.nonstd+3;
  21.   setTrigger  * = e.nonstd+4;
  22.  
  23. (******  GamePort structures ******)
  24.  
  25. (* gpt_Keys *)
  26.   downKeys  * = 0;
  27.   upKeys    * = 1;
  28.  
  29. TYPE
  30.  
  31.   GamePortTriggerPtr * = UNTRACED POINTER TO GamePortTrigger;
  32.   GamePortTrigger * = STRUCT
  33.     keys * : SET;             (* key transition triggers *)
  34.     timeout * : INTEGER;      (* time trigger (vertical blank units) *)
  35.     xDelta * : INTEGER;       (* X distance trigger *)
  36.     yDelta * : INTEGER;       (* Y distance trigger *)
  37.   END;
  38.  
  39.  
  40. CONST
  41.  
  42. (****** Controller Types ******)
  43.   allocated    * = -1;  (* allocated by another user *)
  44.   noController * = 0;
  45.  
  46.   mouse       * = 1;
  47.   relJoystick * = 2;
  48.   absJoystick * = 3;
  49.  
  50.  
  51. (****** Errors ******)
  52.   errSetCType * = 1;     (* this controller not valid at this time *)
  53.  
  54. END GamePort.
  55.  
  56.